5 GOTO 450
6 REM (W) BY PETER DIEHM
7 REM 1989
8 REM PUBLIC DOMAIN
9 REM VERSION III
10 POKE53280,0:POKE53281,0:PRINTCHR$(158):PRINTCHR$(147)
12 PRINTCHR$(142)"":POKE53280,14
15 PRINT" SIE STEHEN IN KIRCHHEIM/TECK"
26 PRINT" VOR IHRER WOHNUNG UND WARTEN"
27 PRINT" AUF DAS TAXI DAS SIE BESTELLT HABEN"
28 PRINT" ES KOMMT AN !"
29 PRINT"[158] ANWEISUNG ":INPUT A$
30 IF A$="HILFE" THEN GOSUB 11000:GOTO 29
31 IF A$="" THEN 29
32 IF A$="STEIGE EIN" THEN 39
33 IF A$="GEHE IN TAXI" THEN 39
34 IF A$="GEHE ZU TAXI" THEN 37
35 PRINT" WIE BITTE..."
36 GOTO 29
37 PRINT" SIE GEHEN ZUM TAXI ."
38 GOTO 29
39 PRINTCHR$(147):PRINT" SIE STEIGEN IN DAS TAXI."
40 PRINT" DER SCHWAEBISCHE FAHRER FRAGT SIE "
41 PRINT" WOHIN SIE WOLLEN[160]? ":INPUT A$
42 IF A$="HILFE" THEN GOSUB 11000:GOTO 40
43 IF A$="ZUM FLUGHAFEN" THEN 60
44 IF A$="FLUGHAFEN" THEN 60
45 IF A$="AIRPORT" THEN 60
46 IF A$="NACH L.A" THEN 53
47 IF A$="LA" THEN 53
48 PRINT" WIE BITTE ..."
49 GOTO 40
53 PRINT" L.A LIEGT IN DEN USA.
54 [153]" SIE BEFINDEN SICH ZURZEIT IN"
55 [153]" EUROPA !":[137] 40
57 [153][199](147)
60 [153]" DAS TAXI BRINGT SIE ZUM "
61 [153]" FLUGHAFEN ."
62 [153]"SYS ANWEISUNG":[133] A$
63 [139] A$[178]"HILFE" [167] [141] 11000:[137] 62
64 [139] A$[178]"STEIGE AUS" [167] 69
65 [139] A$[178]"AUSSTEIGEN" [167] 69
66 [139] A4[178]"GEHE AUS TAXI" [167] 69
67 [153]" WIE BITTE ...":[137] 62
68 [153]"LOAD":[153]" SIE STEHEN VOR DEM HAUPTGEBAUEDE DES
69 PRINT" FLUGHAFEN'S UEBER IHNEN KREISEN JUMBO
70 [153]" JETS IN DER WARTE SCHLEIFE."
71 [153]"SYS ANWEISUNG":[133] A$
72 [139] A$[178]"HILFE" [167] [141] 11000:[137] 71
73 [139] A$[178]"GEHE HINEIN" [176]A$[178]"GEHE IN FLUGHAFEN" [167] 80
74 [139] A$[178]"GEHE ZU FLUGHAFEN" [167] 80
75 [153]" WIE BITTE ...":[137] 71
76 [153]"LOAD":[153]" SIE BETRETEN MIT GROSSEN SCHRITTEN
80 PRINT" DAS GEBAUEDE. LAUTER LAERM DRINGT VON
81 [153]" ALLEN RICHTUNGEN AUF SIE EIN .
82 PRINT" VOR EINEM TICKETSCHALTER MACHEN SIE ":PRINT" HALT.
83 [153]"SYS ANWEISUNG":[133] A$
84 [139] A$[178]"HILFE" [167] [141] 11000:[137] 83
85 [139] A$[178]"GEHE ZU TICKETSCHALTER" [167] 93
86 [139] A$[178]"KAUFE TICKET" [176]A$[178]"KAUFE" [167] 100
87 [153]" WIE BITTE ...":[137] 83
88 [153][199](147)
93 [153]" SIE GEHEN ZUM TICKETSCHALTER ."
94 [153]"SYS ANWEISUNG ":[133] A$
95 [139] A$[178]"HILFE" [167] [141] 11000:[137] 94
96 [139] A$[178]"BESORGE TICKET" [176]A$[178]"KAUFE TICKET" [167] 100
97 [139] A$[178]"KAUFE TICKET NACH L.A" [176]A$[178]"KAUFE TICKET NACH LOS ANGELES" [167] 110
98 [153]" WIE BITTE ...":[141] 94
99 [153][199](158)
100 [153]" WOHIN FRAGT DIE FRAU AM"
101 [153]" SCHALTER":[133] A$
102 [139] A$[178]"HILFE" [167] [141] 11000:[137] 100
103 [139] A$[178]"NACH L.A" [167] 110
104 [139] A$[178]"NACH LOS ANGELES" [176] A$[178]"LOS ANGELES"[167] 110
105 [139] A$[178]"NACH L A" [167] 110
106 [153]" WIE BITTE ...":[137] 100
107 [153][199](147)
110 [153]" TUT MIR LEID ALLES"
111 [153]" AUSGEBUCHT ."
112 [153]" EIN ARABISCHER OIL SCHEICH"
113 [153]" HAT DAS GANZE FLUGZEUG GEMIETET."
114 [153]
115 [153]" SIE KOENNEN ABER EINEN FLUG"
116 [153]" NACH BERLIN NEHMEN UND VON"
117 [153]" DORT EIN FLUGZEUG NACH "
118 [153]" L.A NEHMEN."
119 [153]" WOLLEN SIE DIESEN FLUG NEHMEN ":[133] A$
120 [139] A$[178]"JA" [167] 135
121 [139] A$[178]"NEIN" [167] 125
122 [153]" WIE BITTE ...":[137] 119
123 [153][199](147)
125 [153]" SIE MUESSEN DIESEN FLUG NEHMEN ."
126 [153]" SIE MUESSEN BIS MORGEN IN"
127 [153]" LOS ANGELES SEIN."
128 [137] 119
135 [153]" OK"
136 [153]" IHR NAME BITTE"
137 [133]" NAME";K$
140 [139] K$[178]"      " [167] 141
141 [153]" DAS MACHT 323 $ HERR "K$
142 [153]"SYS ANWEISUNG":[133] A$
143 [139] A$[178]"HILFE" [167] [141] 11000:[137] 142
144 [139] A$[178]"BEZAHLE TICKET" [176]A$[178]"BEZAHLE" [167] 155
145 [153]" WIE BITTE ...":[137] 142
146 [153][199](147)
155 [153]" ZUM GLUECK HABEN SIE 1000 $"
156 [153]" BEI SICH .SIE BEZAHLEN ."
157 [153]" SIE HABEN JETZT NOCH 677 $ ."
158 [153]" SIE MUESSEN JETZT ZUM FLUGSTEIG 2 ."
159 [153]"SYS ANWEISUNG":[133] A$
160 [139] A$[178]"HILFE" [167] [141] 11000:[137] 159
161 [139] A$[178]"GEHE ZU FLUGSTEIG 2" [167] 175
162 [139] A$[178]"FLUGSTEIG 2" [167] 175
163 [153]" WIE BITTE ...":[137] 159
164 [153][199](147)
175 [153]" SIE GEHEN ZUM FLUGSTEIG 2 UND
176 PRINT" STEHEN UND VOR DEM FLUGZEUG."
177 PRINT"[158] ANWEISUNG ":INPUT A$
178 IF A$="HILFE" THEN GOSUB 11000:GOTO 177
179 IF A$="GEHE INS FLUGZEUG" ORA$="STEIGE EIN" THEN 189
180 PRINT" WIE BITTE ..."
181 GOTO 177
189 PRINT" SIE GEHEN UEBER DIE TREPPE IN DAS
190 [153]" INNERE DES JUMBOS ER FLIEGT LOS."
191 [129] I[178]1 [164] 3000:[130]
193 [153]" BERLIN !"
194 [153]"SYS ANWEISUNG :":[133] A$
195 [139] A$[178]"STEIGE AUS" [167] 200
196 [139] A$[178]"HILFE" [167] [141] 11000:[137] 194
197 [153]" WIE BITTE ...":[137] 194
198 [153]"LOAD"
199 [143] SOFTWARE
200 [153]"LOAD":[153]" DER TAG HAT SICH ZU ENDE GENEIGT
201 PRINT" UND ES WIRD NACHT !"
202 PRINT" SIE STEHEN IM FLUGHAFEN GEBAUEDE ."
203 PRINT"[158] ANWEISUNG " :INPUT A$
204 IF A$="GEHE ZU TICKETSCHALTER" ORA$="KAUFE TICKET" THEN 215
205 IF A$="GEHE ZU SCHALTER" THEN 215
206 IF A$="HILFE" THEN GOSUB 11000:GOTO 203
207 PRINT" WIE BITTE ...":GOTO 203
215 PRINT" SIE GEHEN ZUM SCHALTER ."
216 PRINT"[158] ANWEISUNG ":INPUT A$
217 IF A$="KAUFE TICKET" THEN 225
218 IF A$="KAUFE TICKET NACH L.A" THEN 240
219 PRINT" WIE BITTE ...":GOTO 216
220 PRINTCHR$(147)
225 PRINT" UND WOHIN":INPUT G$
226 IF G$="NACH L.A" THEN 240
227 IF G$="NACH LOS ANGELES" THEN 240
228 PRINT" WIE BITTE ...":GOTO 225
229 PRINTCHR$(158)
240 PRINT" DAS MACHT 677$ !"
241 PRINT"[158] ANWEISUNG" :INPUT A$
242 IF A$="HILFE" THEN GOSUB 11000:GOTO 241
243 IF A$="BEZAHLE MIT GELD" THEN 245
244 PRINT" WIE BITTE ...":GOTO 241
245 PRINTCHR$(147)
260 PRINT" SIE BEZAHLEN. SIE HABEN NUN IHR GANZES
261 [153]" GELD AUSGEGEBEN. IHR FLUGZEUG
262 PRINT" WARTET AM FLUGSTEIG 8 AUF SIE."
263 PRINT"[158] ANWEISUNG ":INPUT A$
264 IF A$="GEHE ZU FLUGSTEIG 8" THEN 270
265 IF A$="HILFE" THEN GOSUB 11000:GOTO 263
266 PRINT" WIE BITTE ...":GOTO 263
270 PRINT" SIE BEGEBEN SICH NUN ZUM FLUGSTEIG 8  "
271 PRINT" UND HALTEN VOR DEM FLUGZEUG ."
272 PRINT"[158] ANWEISUNG":INPUT A$
273 IF A$="STEIGE EIN" THEN 285
274 IF A$="GEHE HINEIN" THEN 285
275 IF A$="GEHE INS FLUGZEUG" THEN 285
276 IF A$="HILFE" THEN GOSUB 11000:GOTO 272
277 PRINT" WIE BITTE ...":GOTO 272
285 PRINT" SIE STEIGEN EIN UND NEHMEN DARIN
286 [153]" PLATZ DAS FLUGZEUG STARTET.
288 FOR I=1 TO 3000:NEXT
290 PRINTCHR$(158)
291 PRINT" DIE MASCHINE LANDET IN L.A ."
292 PRINT"[158] ANWEISUNG :":INPUT A$
293 IF A$="STEIGE AUS" THEN 300
294 IF A$="AUSSTEIGEN" THEN 300
295 IF A$="HILFE" THEN GOSUB 11000:GOTO 292
296 PRINT" WIE BITTE ...":GOSUB 292
300 PRINT" SIE STEHEN IM FLUGHAFENGEBAUEDE ."
301 PRINT" NUN MUESSEN SIE ZUM HAFEN !"
302 PRINT"[158] ANWEISUNG :":INPUT A$
303 IF A$="GEHE AUS FLUGHAFENGEBAUEDE" THEN 320
304 IF A$="GEHE NACH DRAUSSEN " THEN 320
305 IF A$="HILFE" THEN GOSUB 11000:GOTO 302
306 PRINTCHR$(31)" WIE BITTE ..."
307 GOTO 302
320 PRINTCHR$(5)"[147]":PRINT" SIE STEHEN VOR DEM TAXI-STAND
321 [153]" EIN TAXI HAELT VOR IHREN FUESSEN DER
322 PRINT" FAHRER OEFFNET DIE TUER.
323 [153]"SYS ANWEISUNG":[133] A$
324 [139] A$[178]"GEHE ZU TAXI" [167] 340
325 [139] A$[178]"ZU TAXI" [167] 340
326 [139] A$[178]"HILFE" [167] [141] 11000:[137] 323
327 [153]" WIE BITTE ...":[137] 323
340 [153]" SIE STEHEN VOR DEM TAXI !"
341 [153]"SYS ANWEISUNG ":[133] A$
342 [139] A$[178]"STEIGE EIN" [167] 355
343 [139] A$[178]"STEIGE INS TAXI" [167] 355
344 [139] A$[178]"HILFE" [167] [141] 11000:[137] 341
345 [153]" WIE BITTE ...":[137] 341
355 [153]" SIE STEIGEN EIN UND SCHLIESSEN DIE
356 PRINT" TUER DER TAXIFAHRER FRAGT WOHIN"
357 PRINT" DIE FAHRT GEHEN SOLL ";:INPUT A$
358 IF A$="ZUM HAFEN" THEN 365
359 IF A$="HAFEN" THEN 365
360 PRINT" WIE BITTE ..."
362 GOTO 356
365 PRINT" DAS TAXI BRINGT SIE ZUM HAFEN ."
366 PRINT"[158] ANWEISUNG ":INPUT A$
367 IF A$="STEIGE AUS" THEN 380
368 IF A$="AUSSTEIGEN" THEN 380
369 IF A$="HILFE" THEN GOSUB 11000:GOTO 366
370 PRINT" WIE BITTE ...":GOTO 366
380 PRINT" SIE STEIGEN AUS ."
381 PRINT" SIE SEHEN DAS SCHIFF"
382 PRINT" DAS AUF IHREN BILD ABGEBILDET IST !"
383 PRINT"[158] ANWEISUNG ":INPUT A$
384 IF A$="GEHE ZU SCHIFF" THEN 395
385 IF A$="SCHIFF" THEN 395
386 IF A$="HILFE" THEN GOSUB 11000:GOTO 383
387 PRINT" WIE BITTE ...":GOTO 383
395 PRINT" SIE STEHEN VOR EINEM GROSSEM SCHIFF ."
396 PRINT"[158] ANWEISUNG ":INPUT A$
397 IF A$="GEHE AN BOARD" THEN 405
398 IF A$="STEIGE EIN" THEN 405
399 IF A$="GEHE AUF SCHIFF" THEN 405
400 IF A$="HILFE" THEN GOSUB 11000:GOTO 396
401 GOTO 396
405 PRINT" SIE GEHEN AN BOARD DAS SCHIFF LEGT
406 [153]" AB RICHTUNG SUEDEN IN DIE SONNE.
407 PRINT
408 FOR I=1 TO 3000:NEXT
409 PRINT"":POKE 53281,6
410 PRINT"                                       "
412 PRINT"                                       "
413 PRINT"                                       "
414 PRINT"                                       "
415 PRINT"                                       "
416 PRINT"                                       "
417 PRINT"                                       "
418 PRINT" [158]                                      "
419 PRINT" [158]                                      "
420 PRINT" [158]                                      "
421 PRINT" [158]                                      "
422 PRINT" DAS SPIEL IST HIERMIT ZU ENDE  ":PRINTCHR$(5)
423 PRINT" ICH GRATULIERE ZU IHREM ERFOLG "
424 PRINT" UND HOFFE DAS ES IHNEN SPASS BEREITET"
426 PRINT" HAT !!!"
427 PRINT" BIS ZUM NAECHSTENMAL !"
428 FOR I=1 TO 3500:NEXT
429 PRINTCHR$(158)"[147]"
430 PRINT" WOLLEN SIE NOCHEINMAL  (J/N)":INPUT G$
431 IF G$="" THEN 430
432 IF G$="JA" ORG$="J" THEN RUN
433 IF G$="NEIN" ORG$="N" THEN 10000
434 PRINT"[158] ENTWEDER JA ODER NEIN !"
435 GOTO 430
436 REM PETER DIEHM
437 REM PRAESENTIERT
450 POKE 53280,0:POKE53281,0:PRINTCHR$(158):PRINTCHR$(147):PRINT
451 PRINT"                                       "
452 PRINT"            LOS ANGELES V.3":PRINTSPC(9)"[154]*********************[158]
453 [153]"                                        "
454 [153]"           EIN TEXT ADVENTURE"
455 [153]"                CONT  VON          "
456 [153]"SYS              PETER DIEHM
457 PRINT"                                      "
458 PRINT"         FREESOFT ADVENTURE 1989
461 [129] I[178]1 [164] 3500:[130]
462 [153][199](158):[153]"LOAD"
463 [153]" POSPOSPOSPOSPOS CONTGET LOS ANGELESSYS"
464 [153]"  AUFGABE DES SPIELERS IST ESCONT"
465 [153]"  VON KIRCHHEIMTECK NACH L.A."
466 [153]"  ZU GELANGEN DORTSYS LIEGT IM HAFEN"
467 [153]"  EIN TRAUMSCHIFF WELCHES MIT IHM ZU
468 PRINT"  EINER WELTREISE AUF BRICHT  !!!"
469 PRINT"  MIT DEM KOMMANDO HILFE KOENNEN SIE
470 [153]"  ALLE KOMMANDOS DIE SIE BENUTZEN
471 PRINT"  KOENNEN AUFRUFEN !. VIEL SPASS !"
472 PRINT
473 PRINTSPC(30)"-TASTE-"
474 GET A$:IFA$="" THEN 474
477 GOTO 10
10000 PRINTCHR$(158)"GOOD BYE"
10010 SYS 64738
11000 POKE 53280,14:PRINTCHR$(5)
11111 PRINT"[158] [207][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][208]"
11112 PRINT" [180]                                    [170]"
11113 PRINT" [180] STEIGE EIN  STEIGE AUS  BEZAHLE    [170]"
11114 PRINT" [180]                                    [170]"
11115 PRINT" [180] KAUFE  GEHE ZU   GEHE IN  ZUM ...  [170]"
11116 PRINT"[158] [165]                                    [170]"
11117 PRINT" [183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]"
11118 FOR I=1 TO 400:NEXT
11119 RETURN